DIMENSION I(20)
1	FORMAT(' TYPE INPUT NAME '$)
3	FORMAT(' TYPE OUTPUT NAME '$)
2	FORMAT(' TYPE EXTENSION '$)
4	FORMAT(' TYPE DEVICE NUM '$)
5	FORMAT(A5)
6	FORMAT(I)
7	FORMAT(72A1)
8	FORMAT(1X72A1)
	TYPE 1
	ACCEPT 5,NAM1
	TYPE 2
	ACCEPT 5,EXT1
	TYPE 4
	ACCEPT 6,IDEV
	CALL OPENIT(IDEV,NAM1,EXT1,0)
C FOR INPUT
	TYPE 3
	ACCEPT 5,NAM2
	TYPE 2
	ACCEPT 5,EXT2
	TYPE 4
	ACCEPT 6,JDEV
 
	CALL OPENIT(JDEV,NAM2,EXT2,1)
C FOR OUTPUT
 
10	READ(IDEV,7,END=9)I
	TYPE 8,I
	WRITE(JDEV,7)I
	GO TO 10
9	END FILE IDEV
	END